home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / enigma / earcd / utility / utilfile / ddrctr18.lha / Install < prev    next >
Text File  |  1996-12-09  |  6KB  |  182 lines
  1. ;$VER: dUd-Installer-Script 1.2 (9.12.96)
  2. ;-- Language specific string definitions --------------------------------------
  3. ;
  4. ; ENGLISH -----------------------------
  5. (procedure english (
  6.    (set MSG_BAD_KICK "%s needs at least system software 2.04.")
  7.    (set MSG_INSTALL (cat "\nThis section lets you install the %s executable.\n\n"
  8.                          "If you choose to skip this part you'll be given the choice to"
  9.                          " install the documentation for %s."))
  10.    (set MSG_INSTALL_HELP "\n\n    hello ;-)")
  11.    (set MSG_DESTINATION (cat "Where would you like %s to be installed?\n"
  12.                         "(NO drawer will be created)"))
  13.    (set MSG_COPYING "Going to copy %s to %s.")
  14.    (set MSG_WHATDOC "Install the documentation in AmigaGuide\nformat for this language:")
  15.    (set MSG_WHATCAT "Install the locale-catalog\nfor this language:")
  16.    (set MSG_NONE "none")
  17.    (set MSG_WHEREDOC "Where shall I put the documentation?")
  18.    (set MSG_YES "Yes")
  19.    (set MSG_NO "No")
  20.    (set MSG_PROCEED "Proceed")
  21.    (set MSG_SKIP "Skip this part")
  22.    (set MSG_THANKS (cat "\n\nThanks for installing %s.\n"
  23.                    "\nPlease don`t forget to install the triton.library\n"
  24.                    "in the Triton-drawer in this archive !"))
  25.    (set MSG_copy-tritonrexx-library "Installing tritonrexx.library...")
  26.    (set MSG_copy-rexxtricks-library "Installing rexxtricks.library...")
  27.    (set docfile 0)
  28. ))
  29.  
  30. ; DEUTSCH ----------------------------
  31. (procedure deutsch (
  32.    (set MSG_BAD_KICK "%s benötigt mindestens OS 2.04 des Betriebssystems.")
  33.    (set MSG_INSTALL (cat "\n\nDiese Sektion installiert %s.\n\n"
  34.                          "Wenn Sie diesen Teil überspringen, können"
  35.                          "Sie die Dokumentation zu %s installieren."))
  36.    (set MSG_INSTALL_HELP "\n\n    Guuuude ! ;-)")
  37.    (set MSG_DESTINATION (cat "Wohin soll %s installiert werden ?\n"
  38.                         "(Es wird KEINE Schublade angelegt !)"))
  39.    (set MSG_COPYING "Kopiere %s nach %s.")
  40.    (set MSG_WHATDOC "Zu welcher Sprace soll die Dokumentation im \nAmigaGuide-Format installiert werden ?:")
  41.    (set MSG_WHATCAT "Sprachkatalog für welche Sprache\ninstallieren ?:")
  42.    (set MSG_NONE "Keine")
  43.    (set MSG_WHEREDOC "Wohin soll die Dokumentation kopiert werden ?")
  44.    (set MSG_YES "Ja")
  45.    (set MSG_NO "Nein")
  46.    (set MSG_PROCEED "Los")
  47.    (set MSG_SKIP "Überspringen.")
  48.    (set MSG_THANKS (cat "\n\%s wurde erfolgreich installiert,.\n"
  49.                    "\nBitte vergessen Sie nicht, die triton.library\n"
  50.                    "aus dem Triton-Verzeichnis im Archiv zu installieren!"))
  51.    (set MSG_copy-tritonrexx-library "Installiere tritonrexx.library...")
  52.    (set MSG_copy-rexxtricks-library "Installiere rexxtricks.library...")
  53.    (set docfile 1)
  54. ))
  55. ;------------------------------------------------------------------------------
  56.  
  57. (if (= @language "english")  (english))
  58. (if (= @language "deutsch") (deutsch))
  59.  
  60. (set vernum (getversion))
  61. (set osversion (/ vernum 65536))
  62. (if (>= osversion 39)
  63.    (set reader "MultiView") 
  64.    (set reader "AmigaGuide")
  65. )
  66.  
  67. (if (< osversion 37)
  68.    (abort (MSG_BAD_KICK @app-name))
  69. )
  70.  
  71. (set installed 0)
  72.  
  73. (if (askbool (prompt (MSG_INSTALL @app-name @app-name)) (help MSG_INSTALL_HELP) 
  74.              (choices MSG_PROCEED MSG_SKIP) (default 1))
  75.    (   
  76.       (set dest_dir
  77.          (askdir (prompt (MSG_DESTINATION @app-name @app-name))
  78.                  (help @askdir-help)
  79.                  (default @default-dest)
  80.                  (newpath)
  81.          )
  82.       )
  83.       (set @default-dest dest_dir)
  84.  
  85.       (copyfiles  (prompt (MSG_COPYING "dAUUdIRECTOR" @default-dest))
  86.                   (help @copyfiles-help)
  87.                   (source "Programm/")
  88.                   (all)
  89.                   (dest @default-dest)
  90.       )
  91.       
  92.       (copyfiles  (help @copyfiles-help)
  93.                   (source "Preview.iff")
  94.                   (dest @default-dest)
  95.                   (optional "nofail")
  96.       )
  97.  
  98.       (set installed 1)
  99.    )
  100. )
  101.  
  102. (set docfile
  103.     (askchoice  (prompt MSG_WHATDOC)
  104.                 (help @askchoice-help)
  105.                 (choices "english" "deutsch" MSG_NONE)
  106.                 (default docfile))
  107. )
  108. (set docdir
  109.     (if (AND (= @user-level 2) (<> docfile 2))
  110.         (askdir (prompt MSG_WHEREDOC)
  111.                 (help @askdir-help)
  112.                 (default @default-dest))
  113.         (@default-dest)
  114.     )
  115. )
  116.  
  117. (select docfile
  118.  
  119.     (copyfiles  (help @copyfiles-help)
  120.                 (source "Docs/English.guide")
  121.                 (dest docdir)
  122.                 (newname "dAUUdIRECTOR.guide")
  123.                 (infos)
  124.                 (optional "nofail")
  125.     )
  126.     (copyfiles  (help @copyfiles-help)
  127.                 (source "Docs/Deutsch.guide")
  128.                 (dest docdir)
  129.                 (newname "dAUUdIRECTOR.guide")
  130.                 (infos)
  131.                 (optional "nofail")
  132.     )
  133.     ("")  ; "none"
  134. )
  135.  
  136. (if (exists (tackon docdir "dAUUdIRECTOR.guide.info") (noreq))
  137.    (
  138.       (tooltype   (dest (tackon docdir "dAUUdIRECTOR.guide"))  (noposition) (setdefaulttool reader))
  139.       (set installed 1)
  140.    )
  141. )
  142.  
  143. (set catfile
  144.     (askchoice  (prompt MSG_WHATCAT)
  145.                 (help @askchoice-help)
  146.                 (choices "english" "deutsch" MSG_NONE)
  147.                 (default catfile))
  148. )
  149.  
  150. (select catfile
  151.  
  152.     ("")
  153.  
  154.     (copyfiles  (help @copyfiles-help)
  155.                 (source "catalogs/deutsch/dA->UU<-dIRECTOR.catalog")
  156.                 (dest "locale:catalogs/deutsch/")
  157.                 (optional "nofail")
  158.     )
  159.     ("")  ; "none"
  160. )
  161.  
  162. (copylib
  163.        (prompt MSG_copy-rexxtricks-library)
  164.        (help @copylib-help)
  165.        (source "Libs/rexxtricks.library")
  166.        (dest "Libs:")
  167.        (confirm)
  168. )
  169.  
  170. (copylib
  171.        (prompt MSG_copy-tritonrexx-library)
  172.        (help @copylib-help)
  173.        (source "Libs/tritonrexx.library")
  174.        (dest "Libs:")
  175.        (confirm)
  176. )
  177.  
  178. (if (= 1 installed)
  179.    (exit (MSG_THANKS @app-name))
  180.    (exit (quiet))
  181. )
  182.